home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / aug95 / dond1f6.gif < prev    next >
Graphics Interchange Format  |  1996-11-18  |  14.1 KB  |  558x470  |  4-bit (14 colors)
   ocr: = FRMNAV3.FSL-Forml-keyPhysical method keyPhysical(uar eventinfo Keyevent) var UCC Smallint enduar if eventInfo.isPreFilter() then ;// This code executes for each object on the Form: doDefault if eventinfo.errorCode() <> 0 then UCC = eventinfo.UCharCode() switch case (UCC = UK_ Tab and eventinfo.isShiftkeyDown() ) or UCC = UK Left or UCC = UK_Up : active.Action(FieldGroupBackward) case UCC = UK Tab or UCC = UK Right or UCC = UK Down : active.Action(FieldGroupforward) endSwitch endif else ;// This code executes only for the Form: endif endmetnod Edit Line: 13 Col: 1